﻿

Imports System.Collections.Generic

Public Class frmRegistrarModificarModalidad
    Private objGestorIndicadorUniversidadLN As IndicadorLN

    'Constructor del formulario
    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        objGestorIndicadorUniversidadLN = New IndicadorLN
        Dim dsUniversidad As DataSet

        'Carga las universidades existentes
        dsUniversidad = objGestorIndicadorUniversidadLN.fBuscarUniversidad()
        If Not (dsUniversidad Is Nothing) Then
            pCargarComboUniversidades(dsUniversidad.Tables(0))
        End If
    End Sub

    'Carga el combo con las universidades disppnibles
    Private Sub pCargarComboUniversidades(ByVal dtUniversidad As DataTable)
        If dtUniversidad.Rows.Count = 0 Then
            MsgBox("No hay ninguna universidad registrada, no se pueden registrar ni modificar Indicadores para las universidades.", MsgBoxStyle.Information, "Error")
            Close()
            Exit Sub
        Else
            cmbUniversidad.DataSource = dtUniversidad
            cmbUniversidad.DisplayMember = "vchNombre"
            cmbUniversidad.ValueMember = "intCodUniversidad"
        End If
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click

        Close()

    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click


        'Dim objOrdenCompraEN As OrdenCompraEN = New OrdenCompraEN
        'Dim objLineaOCEN As LineaOrdenCompraEN = New LineaOrdenCompraEN
        'Dim i As Integer
        'If fValidaProveedor() Then
        '    If fValidaGrilla() Then
        '        With objOrdenCompraEN
        '            'Datos de la Orden de Compra
        '            .HotelOC = objHotelEN
        '            .IdOC = txtNumeroOC.Text
        '            .FechaIngresoOC = Date.Parse(txtFechaIngreso.Text)
        '            .FechaEntregaOC = dtpFechaEntrega.Value.Date
        '            .EstadoOC = txtEstadoOC.Text
        '            .ProveedorOC = New ProveedorEN
        '            .ProveedorOC.IdProveedor = txtProveedor.Text
        '            .ProveedorOC.RazonSocialProveedor = txtRazonSocial.Text
        '            .MonedaOC = cmbMoneda.Text
        '            .TotalOC = Single.Parse(lblTotal.Text)
        '        End With

        '        If txtNumeroOC.Text.Equals("") Then
        '            objOrdenCompraEN.IdOC = objGestorOrdenCompraLN.fRegistrarOrdenCompra(objOrdenCompraEN)
        '        Else
        '            objGestorOrdenCompraLN.pModificarOrdenCompra(objOrdenCompraEN)
        '        End If
        '        objGestorLineaOCLN.pEliminarLineasOC(objOrdenCompraEN.IdOC, objOrdenCompraEN.HotelOC.IdHotel)

        '        'Datos de las Lineas de Orden de Compra
        '        For i = 0 To Me.dgvDetalleOrden.Rows.Count - 1
        '            With objLineaOCEN
        '                .ProductoLineaOC = New ProductoEN
        '                .ProductoLineaOC.IdProducto = dgvDetalleOrden.Rows.Item(i).Cells.Item(0).Value
        '                .ProductoLineaOC.NombreProducto = dgvDetalleOrden.Rows.Item(i).Cells.Item(1).Value
        '                .ProductoLineaOC.PrecioProducto = dgvDetalleOrden.Rows.Item(i).Cells.Item(3).Value
        '                .CantidadLineaOC = dgvDetalleOrden.Rows.Item(i).Cells.Item(2).Value
        '                .SubTotalLineaOC = dgvDetalleOrden.Rows.Item(i).Cells.Item(4).Value
        '                objOrdenCompraEN.AgregarLinea(objLineaOCEN)
        '                objGestorLineaOCLN.pRegistrarLineaOC(objOrdenCompraEN.IdOC, objOrdenCompraEN.HotelOC.IdHotel, objLineaOCEN)
        '            End With
        '        Next
        '        Me.Close()
        '        DialogResult = Windows.Forms.DialogResult.OK
        '        vtn_frmBuscarProducto.Dispose()
        '    End If
        'End If
    End Sub
End Class